home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
626-637
/
disk_632
/
attacks
/
sources
/
attackssprites.def
< prev
next >
Wrap
Text File
|
1992-05-06
|
1KB
|
39 lines
DEFINITION MODULE attackssprites;
(* This module just defines all the sprites used in the program. *)
FROM SYSTEM
IMPORT LONGWORD;
FROM header
IMPORT squaretype;
TYPE
tempspritetype = ARRAY [0..18] OF LONGWORD;
tempspriteptr = POINTER TO tempspritetype;
VAR
(* Point to the sprites for the pointers *)
circle : tempspriteptr;
mypointer : ARRAY [red..blue] OF tempspriteptr;
emptysquare : tempspriteptr;
blocksquare : tempspriteptr;
(**************************************************************************)
PROCEDURE InitPointers() : BOOLEAN;
(* This procedure starts the ball rolling for the pointer data. It *)
(* allocates chip memory for the sprite images, and copies the informa- *)
(* tion to those locations. It returns true only if the memory alloca- *)
(* tions went ok. *)
(* *)
(* INPUT *)
(* n/a *)
(* *)
(* OUTPUT *)
(* *)
(* Returns TRUE only if everything is safe to proceed. *)
END attackssprites.